﻿Imports dotNetBase.Windows.Forms.Aero.glassForm

Public Class frmSearch
    Inherits dotNetBase.Windows.Forms.Aero.glassForm

    Dim SC As String = Application.ExecutablePath & "acl.aclst"

    Private Sub frmSearch_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Anchor
        Me.Top = My.Computer.Screen.WorkingArea.Height - Me.Height
        Me.Left = My.Computer.Screen.WorkingArea.Width - Me.Width

        'AutoComplete Source
        ptbSearch.AutoCompleteCustomSource.Add(SC)
    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub PromptedTextBox1_TextChanged(sender As System.Object, e As System.EventArgs)

    End Sub
End Class